perm filename ADDER.F4[LIB,LCS] blob sn#153768 filedate 1975-04-02 generic text, type T, neo UTF8
00100		DIMENSION N(20)
00200	3	ACCEPT 1,N
00300		J=0
00400		DO 2 K=1,20
00500	2	J=J+N(K)
00550		M=M+J
00600		TYPE 1,J,M
00650		TYPE 4
00700	1	FORMAT(20I)
00710	4	FORMAT('  ')
00800		GO TO 3
00900		END